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waveform  in  a  different  direction.  Each  additional  beam  requires  a  doubling  of  the 
size  of  the  upper  shift  register. 
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One  form  of  DBS  employs  a  vernier  scheme  such  that 
the  shift  register  provides  a  control  character  that 
selects  a  desired  phase  of  the  RF  carrier. 
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Beam  Pattern  -  Antenna  Types 

(concluded) 
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Beam  Pattern  -  Steered  Elevation  Beams 

[Time  Resolution:  0.25] 
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Beam  Pattern  -  Time/Element 
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Beam  Pattern  -  Shift  Register  Sizes 
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Three-Level  Digital  Carrier 
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/*  main.c  -*/ 
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tdefine 
♦define 
♦define 
♦define 
♦define 
♦define 
♦define 
♦define 
♦define 
♦define 
♦define 
♦define 
♦define 
♦define 
♦define 
♦define 
♦define 
♦define 
♦define 
/* 


MXCASES 

ANTENNA 

NPHS 

SKSZ 

NELS 

TELS 

FREQ 

PLSWD 

NLEVELS 

CODE 

DIR 

AZMDIR 
MAXDIR 
AZMPLN 
ELVPLN 
NUMDIM 
ANGINC 
TAPER 
DBLIM 


6 

"DBS" 

8 

50 

100 

0.5 

1.0 

5.0 

7 

1 

45.0 

45.0 

60.0 

45.0 

45.0 

1 

0.2 

0.0 

-50.0 


I*  study, i.e.  What  varies.,  in  study. Choices-  */ 

/*  SRS2, NELS,  TELS,  FREQ, PLSWD, NLEvks, 

/*  No.  of  cases  for  studies:  (0, MXCASES) 

/•  (I«.l>CW.PHA,DPX,TTt,.I,BS,OrD> 

/*  ^®5ister  stages  per  antenna  element 

/*  elements  (in  each  direction  if  2-D  array) 

/  Time  (ns)  between  antenna  elements  ^ 

/*  Frequency  of  carrier  in  GHz 
/*  Transmitter  Pulsewidth  in  ns 

/*  for  discrete  sin  funct.  («  l  for  cont 

/*  Coogiression  Code.  114  «  Barker  7  bit  code 

'  Steered  beam  elevation  in  degrees 
/*  5^®®^®^  azimuth  direction  in  degrees  for  2-D  array 
/*  ^  steered  in  degrees  in  DIR  study 

/  ^i®uth  Angle  for  observation  plane  (in  degrees) 

/*  observation  plane  (in  Agrees) 

/  Nirnber  of  dimensions  for  the  antenna  array 
/*  Angle  Increment  of  plot  data  in  degrees 

/*  “  2°"®'  ia±sed  cosine  taper. 

/  dB  Limit  to  minimum  of  graph  plot 


sin) 


♦define  TINC  0.125 

♦define  ENOBM  0.5 

♦define  TWOPI  6.2831853 


/*  Time  slice  calculation  resolution  in  ns  */ 

/*  Normalization  factor —  Half-wave  rectifier  */ 

/*  21C  •/ 


*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

•/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 


♦include<stdio . h> 
♦include  <stdlib.h> 
♦include<math . h> 


FILE  *fp; 


float  ff; 

int  ant, dd, study; 

rtnnKi  nl,  nlevels,  nphs,  nsrs ; 

double  dirinc,  in,  nn,  nt npf  '  tels,  tdir ,  tt ,  tp,  tmin,  tmax,  tx,  ty,  w,  x,  y,  z  ; 


char  *file_name[]  *  { 

"nul", 

"Steered  Elev. 's", 
"Antenna  Types", 
"Fixed  Phases", 

"Shft  Reg.  Sizes", 

"No .Elements/Dlffl", 
"Time  /  Element", 
"Frequencies " , 

"Pulse  Widths", 
"Discrete  Levels", 
"Types  of  Code", 
"Steered  Azimuth", 
"Antenna  Taper"  } ; 
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/*  - - - 


Paga:  2 


*/ 


/* 


*/ 


void  base_study(int) ; 

void  dir_study(int) ; 

void  studies (int,  int); 

void  cw(int); 

long  code_tbl(  long  ); 

long  code_length(long  ); 

unsigned  hash  (char  */ unsigned, unsigned) ; 

double  rcos(long  ); 

double  dsin (double) ; 

double  discrete_phase (long  ) ; 

double  discrete_delay (long  ); 

double  d_phase (double  ) ; 

double  d_delay (double  ) ; 

double  pulse (  double  ) ; 

double  coded_pulse(  double, long  ); 

double  timejadong  ); 

double  tine_b(long  ); 

double  tiiiie_bb  (long  ) ; 

double  cw__po%rer  (int) ; 

double  pulse_energy(int) ; 

double  8tan_eles (int, double,  double, double, double,  (touble) ; 

void  init_parameters (void) ; 

void  direction_paraineters  (double,  double) ; 

void  ant_filejppen(char  *); 

void  study_file_«^n(char  *); 

void  inc_caJ.c  (int) ; 

void  dbprint (double) ; 

void  inc_print (double); 

void  base_header  (void)  ; 

void  header_print  (double) ; 

void  note_print  (void)  ; 

void  head_print (int) ; 

void  line_print (int) ; 

void  para_print (int) ; 

void  note_write (void) ; 

void  stucty_parm_write (char  *); 

void  para_writeTint) ; 
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void  main  (void) 

{ 

nphs  =  NPHS; 
nsrs  =  SRS2; 
nels  =  NELS; 
tels  =  TELS; 
freq  =  FREQ; 
plswd  =  PLSWD; 
idir  =  DIR; 

nlevels  *=  nlevels; 
code  “  CODE; 

azmdir  =  AZMDIR; 

taper  =  TAPER; 

elvpln  =  ELVPLN;  /*  fixes  a  compiler  bug  */ 

aznpln  =  A2MPLN; 

dirinc  =  MAXDIR/MXCASES; 

in  =  ( (double) SRSZ) / (1+MXCASES) ; 

nn  =  ((double)llELS) /(1+MXCASES)  ; 

nt  =  TELS/ (1+MXCASES) ; 

nf  =  FREQ/ (1+MXCASES); 

np  «  PLSWD/ (1+MXCASES) ; 

rd  =  TWpPI/360.0; 

taa  «  tels*sin (rd*idir) ; 

jr  «  (90.0/ANGINC); 

nl  =  1  +  (NUMDIM  -  l)*(nels  -1); 

init_parameters ( ) ; 


i  «  basil  (ANTENNA,  2,13); 
switch (i) 


/*  Hash  table  for  type  of  antenna  */ 


case  0 
case  3 
case  6 
case  8 
case  9 
case  11 
case  12 
default 


3;  break; 
5;  break; 
6;  break; 
7;  break; 
4;  break; 
1;  break; 
2;  break; 


/*  TTD  V 
/*  DPA  */ 
/*  DBS  */ 

/★  ddd  */ 

/*  PHA  */ 
/*  TCW  */ 
/*  DCW  */ 


printf("  Unknown  type  antenna  specified  in  main.  Antenna  =  %s\n", ANTENNA) 


antenna  =  %s;  Hashval  =  %d;  Value  of  ant 
prin'tr  (  \  \ . 

i  =  hash (STUDY, 22, 27); study  »  0; 
switch (1) 


%d  \n",ANTEMNA,  i, ant) ; return; 


case  0  :  studies (ant, 6) ; 
case  2  :  studies (ant, 7) ; 
case  4  ;  studies (ant, 2) ; 
case  5  :  studies (ant, 11) ; 
case  7  :  studies (ant, 8) ; 
case  13  :  studies  (ant,  1) ; 
case  15  :  studies (ant, 9) ; 
case  17  ;  studies  (euit,  4); 
case  19  :  studies (ant, 3) ; 
case  21  :  studies (ant,  5) ; 
case  22  :  base_stucty  (cuit) ; 
case  23  :  studies (ant, 12) ; 
case  25  :  studies (ant, 10) ; 


break; 

break; 

break; 

break; 

break; 

break; 

break; 

breaUc; 

break; 

break; 

break; 

break; 

break; 


/*  TELS  study  */ 
/*  FREQ"  study  */ 
/*  ANTENNA  stuc^  */ 
/*  AZMDIR  stuc^  */ 
/*  PLSWD  stuc^  */ 
/*  DIR  Study  */ 
/*  NLEVELS  stucfy  */ 
/*  SRSZ  study  */ 
/*  NPHS  study  */ 
/*  NELS  Study  */ 
/*  BASE  study  */ 
/*  TAPER  study  */ 
/♦  CODE  study  */ 
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default  :  printf("  Unknovm  study  in  main.  Study  =  %s  case  =  %d\n",  STUDY, i); 


/*  printfCType  study  -=  %s;  Hashval  =  %d;  Value  of  study  =  %d\n'', STUDY,!, study) ; return;  */ 
return; 


} 


/*  End  of  main  program  */ 


I* 


*/ 


/* 


*/ 


void  base_study(int  ant) 

{ 

long  j; 

direct ion_paran«ters  (DIR,AZMDIR) ; 
ant_f  ilejopen  (ANTENNA)  ; 
base_header ( ) ; 
for  (j  =  -jr;  j  <»=  jr;  j++) 

{ 

switch (ant) 

{ 

ceise  1  :  dl[^rint(  cw_power(  ant)  )  ;  break; 

case  2  :  dl:^rint(  cw_power(  ant)  )  ;  break; 

case  3  :  dl:^rint(  pulse_energy(ant)  );  break; 

case  4  :  dl^rintC  pulse_energy(ant)  );  break; 

case  5  :  dbprint(  pulse_energy(ant)  );  break; 

case  6  :  dbprint(  pulse_energy(ant)  );  break; 

case  7  ;  (fiqjrint(  pulse_energy (ant)  );  break; 

default:  printf("  Unlcnown  tjpe  of  ant  specified  in  dir  study. \n"); 

} 

printf ("  End  of  %s  Data  \n", ANTENNA) ; 
fclose (fp) ; 

}  /*  end  of  base  study  */ 

f*  . — — -I-...  ■  — ,  - -  „  -k f 


void  studies (int  ant,  int  study) 
long  i,  n; 

study_parm_write (flle_n^ne (study] ) ; 
study_file_c^n  (f  ile_na^  (study] ) ; 
parajwrite  (study) ; 
note_print  0 ; 
head_print (study) ; 

for  (j  =  -jr;  j  <«  jr;  j++)  /*  Steps  through  each  observation  angle  */ 

ang  =  (long) (1000*j*ANGIIK:) /lOOO.O; 

printf ( "%4 . If" , ang) ;  fprintf (fp, "%4 . If" , ang) ; 

for  (i  =  0;  i  <=  MXCASES;  i++) 

{ 

switch  ( study) 

{ 

*/ 


case  1  : 


idir  =  i  "dirinc; 


break;  /*  DIR 
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} 


case 
case 
case 
case 
case 
case 
case 
case 
case 
case 
case  12 
default : 


2 

3 

4 

5 

6 

7 

8 

9 

10 
11 


ant  = 
nphs  = 
nsrs  = 
nels  = 
tels  = 
freq  = 


i+1; 

2  «  i; 

(long) ((i+l)*in) ; 
(long) ((i+l)*nn); 
(i+l)*nt; 
(i+l)*nf; 


break; 

/* 

ANT 

*/ 

break; 

/* 

NPHS 

*/ 

break; 

/* 

SRSZ 

*/ 

break; 

/* 

NELS 

*/ 

break; 

/* 

TELS 

*/ 

break; 

/* 

FPEQ 

*t 

break; 

/* 

PLSWD 

*/ 

break; 

/* 

NLEVELS 

*/ 

break; 

/* 

CODE 

*/ 

break; 

/* 

AZMDIR 

*/ 

break; 

/* 

TAPER 

*/ 

printf ("  End  of  %s  Data 
f close (fp) ; 


\n",  ANTENNA)  ; 
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plswd  ==  (i+l)*np; 
nlevels  =  2*1+1; 
code  =  codejibld); 
azmdir  =  i*dirinc; 

ta^r  =  ((double)  i)/MXCASES.,  _  , 

printf("  Untoown  type  of  study  specified  in  studies. Nn**) ; 

It  ^  5®^-®*sin(ang*rd) ;  /*  Times  for  each  observed  direction  j  */ 
tb  =  tels*sin  (a2n5)ln*rd)  *cos  (eing*rd) ; 
if (study  =  11)  {ta  =  tels*sin (elvpln*rd) ; 

«  tels*cos  (elvpln*rd)  *sin  (ang*rd) ; } 
inltjarameterso;  “  elevation  plane  •/ 

direction_pcu:ameters  (idir,azmdir)  ; 
inc_calc (ant) ; 

}  /*  end  of  study  case  loop  */ 

printf ("\n") ;  fprintf (fp, "\n») ; 

}  /*  end  of  angle  (j)  loop  */ 

printf  («— — - 


\n")  ; 


}  /*  end  of  studies  */ 


/* 


void  inc_calc(int  ant) 

switch (ant) 

{ 

case  1 
case  2 
case  3 
case  4 
case  5 
case  6 
case  7 
default 

} 

return; 

} 


lnc_print(  cw_power(  ant)  )  ;  break; 

inc_print(  cw_power(  ant)  )  ;  break; 

inc_print(  pulse_energy(ant)  );  break; 

inc_print(  pulse_energy(ant)  );  break; 

inc_print(  pulse_energy (ant)  );  break; 

inc_print(  pulse_energy(ant)  );  break; 

inc_print(  pulse_energy(ant)  );  break; 

printf  ("  Un]cnown  ant  ^>ecified  in  inc_calc.  ant=\n",ant) ; 


doiable  cw_power(int  ant) 

{  long  k,  la- 

double  ltb,lty,c,s,p,rc,rcl,t; 

c  »  0.0;  s  •=  0.0; 

for  (1«0;  1  <  nl;  1++) 

{  Itb  *  l*tb; 

Ity  »  l*ty; 

rcl  =  1;  if  (NOMDIM  >1)  rcl  »  rcos(l); 
for  (k«0;  k  <  nels;  k++) 

^  ^  *  “Itb  -  k*ta;  /*  Observation  Direction  Times  */ 


Page:  6 


Kaye's  HD:AL.2:Hieapor7:new7maln.e 
Wednesday,  April  16,  1997  /  5:15  PM 


p  =  Ity  +  k*tx;  /*  Steering  Direction  Times  */ 
switch (ant) 

{  case  1  :  p  =  w*(t  +  p)  ;  break;  /*  TCM  */ 

case  2  :  p  =  w*t  +  ci_phase(p)  ;  break;  /*  DCW  */ 

default  :  printfC  Unknown  ant  =  %d  in  cw_power\n",  ant) ; return; 

if(  taper  >  0.0  ) 

{  rc  =  rcl*rcos (k) ;  c  =  c  +  rc*cos (p) ;  s  =  s  +  rc*sin  (p) ;  } 
else  {  c  »  c  +  cos(p);  s  *  s  +  sin(p);  } 

} 

) 

return (  {c*c  +  s*s)  /  (nl*nl*nels*nels)  ); 


double  pulse  jenergy (int  ant) 

{  double  r,  s,  t  ; 
s  *  0.0; 

for  (t=tmin;t<tmax;t=t+TINC) 

{  r  »  sum_eles(ant,t,ta,tb,tx,ty) ; 
s  »  s  +  r*r; 

}  /*  end  of  t  loop  */ 

return  (s/^) ; 


double  s'UBii_eles  (int  ant^  double  tC/ double  ta,  double  tb^  double  tx,  double  ty) 

{  /*  calculates  sm  of  voltage  from  array  of  antenna  elements  */ 

double  Itb,  Ity,  p,  r,  rcl,t,tiine,  z: 
long  k,  1; 
r*0.0; 

for ( 1*0 ; l<nl ; 1++) 

{  Itb  =  tc  -  l*tb; 

Ity  *  l*ty; 

rcl  «  1;  ifdiraffllM  >1)  rcl  «  rcos(l); 
for  ()c*0;  k  <  nels;  k++) 

{  t  »  Itb  -  k*ta;  /*  ^servation  Direction  Times  */ 
p  *  Ity  +  k*tx;  /*  Steering  Direction  Times  */ 
switch (ant) 

{ 

case  1  :  printf("  Un)cnown  ant  *  %d  in  pulse  eval  section\n",ant)  ;retum; 
cas®  2  :  printf("  Unknmm  ant  =  %d  in  pulse  eval  sectionXn",  ant) ; return; 


/*  ttd  */  case  3  :  z  «  sin(w*(t  +  p)) ;  tia»  *  t  +  p;  break; 
/*  PHA  V  case  4:2*  sin(w*(t  +  p));  time  *  t;  break; 
/*  DPA  V  case  5  :  z  »  sin(%f*t  +  d_phase(p));  time  =  t;  break; 
/*  DBS  */  case  6  ;  z  *  sin(w*t  +  d_phase(p));  time  *  t  +  d_delay(p);  break; 
/*  DDD  */  case  7  :  z  *dsin(w*t  +  d  phase  (p) ) ;  time  *  t  +  d_delay(p);  break; 


^^fault  :  printf  ("Unknotm  ant  *  %d  in  pulse  eval  sectionXn", ant) ; return; 

if(  taper  >0.0  )  r  ■  r  +  rcl*rcos(k)*coded_pulse(time,cocte)*z; 
else  r  »  r  +  codedjpulse  (time,  code)  *z; 

}  /*  end  of  k  loop  */ 

}  /*  end  of  1  lo^  */ 

return  (r) ; 


} 


/* 


*/ 


/* 


*/ 


/*  end  of  sm  eles  function  */ 
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double  rcosdong  k)  {return  (1.0+taper*cos  ( (dovible)  (k-nels/2)  *TWOPI/nels) ); }  /*taper  function* 


double  dsin(double  phi)  {  if(nlevels  <=  l  )  return (sin (phi) ) ;  /*  Discrete  sin  funri-inn  */ 

return ( ( ( (double)  ( (long)  ( (sin (phi)  +1 . 0)  *0 . 499999*nlevLs) )  *2 . 0)  /nlevels)  -1.0+1 . oSevels)  ; 


double  d_phase (double  p)  {return ( (TWOPI* ( (long) (p*nphs*freq+0 .5)  %  nphs) ) /nphs) ; } 
double  d_delay (double  p)  {  retum(sp*(long)  (0.5+p/sp) ) ; }  /*  sp  =  nels*tels/nsrs  */ 
long  code_length(long  code)  {  long  i;  for  (i=0;code>0;i++)  code  =  code  »  1;  retum(i);} 


double  discretejphasedong  k)  /* 

double  p, x; 
long  i,m; 

X  *=  lc*pl  +  0.5  ; 

m  =  x; 

/*  nphs  =  NPHS;  */ 
i  =  m  %  nphs  ;  dd  =  i; 
p  «  ( (TWOPI*i) /nphs)  ; 

/*  p  =  k  *  pd; 
return (p) ; 


{return (( (TWOPI* (long) ( (long) (k*pl+0. 5)  %  nphs) ) /nphs) ); }  * 


/*  Selection  of  element  phase  index  */ 
/*  Set  phase  for  each  element..  */ 


double  discrete_delay(long  k)  /*  {  return (sp* (long) (0.5+pn*k) ); )  */ 

double  x; 
long  i; 

k*TElLS*sln  (dir)  time  delay  needed  to  steer  array  */ 
/*  Y  m  nsrs;  z  *  NELS;  pn  ■=  (  y/z)  *  sin (dir);  */ 

1,*.,  ^  n  ^  “  NELS*TELS;  sp  =  x/nsrs;  */  /*  Shift  clock  period  */ 

X  =  Jc*pn  +  0.5; 

^  /*  Index  into  shift  register  */ 

if(i  >  nsrs)  {prtotf  ("Error  in  shift  register  indexing,  i  =  %d\n",  i) ; return; } 
/*i  *  m  %  nsrs;  */ 

/*  printf("(%d|%d),  ",i,dd);  */ 

X  =  l*sp; 
retTorn  (x)  ; 


double  pulse (  double  tt) 

{  double  b; 

b«0;  if  (tt>^)  {if  (tt<plswd)  b»1.0;}  /*  Define  BADAR  Pulse  */ 

retuum  (b) ; 

} 


double  coded_pulse  (  doii>le  tt,long  code) 

{  long  i,k;  /*  Define  Coded  RADAR  Pulse 

i  =  f loor (tt/PLSWD) ; 


if(i  <  0)  return (0.0); 
k  *  code  »  i  ; 
if{k  <■=  0)  return (0.0) 
return (2* (k  %  2)  -1); 


/*  Barker-7  Code  -=  114  (  1,1, 1,0, 0,1,0  ) 
/*  Code  read  right  to  left  */ 


*/ 
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void  init_paraineters  (void) 

{ 

w  =  ITOPI  *  freq; 

em  =  EllOPM*nl*nl*nels*nels»plswd*code_length(code) /TINC; 

X  =  nels*tels; 

sf  =  nsrs/x;  /*  printf("  Shift-clock  frequency  =  %f  GHz",sf);  */ 

sp  =  x/nsrs; 

tmin  “  (1  -  nels)*tels; 

tmax  =  plswd*code_length(code)  +  (nels  -l)*tels; 
return; 

} 


void  direction_parameters  (double  index_directlon,  double  azmdir) 

{ 

double  dir,  y,z; 

dir  =  rd*index_direction; 

tx  =  tels*sin (dir) ; 

ty  “  tels*sin(rd*aznidir)  *cos(dir) ; 

pd  =  w*tx; 

pi  =  nphs*tels*freq*sin(dir) ; 

/*  tdir  =  tels*sin(dir) ; 
y  “  nsrs;  z  *  nels; 
pn  =  (  y/z)  *  sin (dir);  V 

return; 

) 

/*  - - - */ 


/* 


*/ 


unsigned  hash  (char  *s,  unsigned  mult,  unsigned  size) 

{ 

unsigned  hashval,i; 

for  (hashval“0;  *s  !®  '\0'  ;  s++  ) 

{ 

hashval  =  *s  +  (  (mult  *  hashval)  %  size) ; 

i  =  (hashval  %  size);/*  printf("T:  %c  ,  %d  ,  %d  ,  %d,  %d  \n",*s, i,mult, size, hashval) ;  */ 
} 

return  (hashval  %  size) ; 

} 


double  tlme_a(long  j)  /* {ang» (long)  (1000* j*ANGINC/1000.0)  .-return (tels*sin(ang*rd) ); }  */ 

{ 

long  1; 
double  a, da; 

1  -  (((1000*j)*ANGIlK:)  +0.0);  /*  This  gets  rid  of  ugly  angles...  */ 

ang  *  1/1000.0; 

a  »  ang*rd; 

da  »  tels*sin (a) ; 

return (da) ; 

} 

double  time_b(long  j)  {  return (tels*sin (azmpln*rd) *cos  (rd*ang) ); } 
double  time  )^(long  j){  return (  tels*sin(rd*ang)*cos(rd*elvpln)  );} 
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long  code_tbl{  long  code  index  ) 

{ 

switch (code  index) 

{ 

case  0  :  return (1 ); 
case  1  :  return (2); 
case  2  :  return (6); 
case  3  :  return (114); 
case  4  :  return (1810); 
case  5  :  return (7989); 
case  6  :  return (60622224 ) ; 

:  printf("  Unlcnown 


default 
return  (0) ; 


} 


!*  1  V 
/*  10  */ 

/*  no  */ 

/*  Barker-7  */ 

/*  optirnum-11  */ 
/*  optljnum-13  */ 
/*  UM/ONR-26  */ 
code  specified  ") ; 


void  ant  file  open (char  *s) 

{ 

char  buffer  [256] ; 

sprintf  (buffer, "%s(var) -%3. Id  Data(%2.1f)  ",s,nels,ANGINC)  ; 

fp  =  fopen(buffer, "w") ; 

printf("  Start  of  %s  Data  \n",  s  ); 

return; 

} 

void  study_f ile_open  (cheir  *flle_naine) 
char  buffer  [256] ; 

sprintf (buffer, "Beam  Pattern  -  %s",file  name); 

fp  *  fopen (buffer, "w"); 

retum; 


void  base_header (void) 

{ 

printf  (" - — _ _ _ 

printf("  Angle  Energy  DecibelsXn") ; 

printf  ("— - —  _ 

return; 

} 

/*  - — _ _ _ 


\n"); 

\n"); 


*/ 


/* 


*/ 


void  dbprint (double  e) 

{  double  db; 

db  »  10"logl0(e);  /*  Decibels  V 

lf(db  <  OBLIM)  db  «  DBLIM; 
printf ("%f,  %f,  %f\n",ang,e,db); 
fprintf (fp, "%f ,  %f,  %f\n",ang,e,db); 
return  ; 
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void  lnc_print (double  e) 

{  double  db; 

db  =  10*logl0 (e) ;  /*  Decibels  */ 

if (db  <  DBLIM)  db  =  DBLIM; 

printf(",  %5.2f-,db); 

fprintf (fp,",  %5.2f",db); 

return  ; 


void  header_print (double  dirinc) 

{ 

double  idir; 

printf  (" - - 

printf("  Antenna  Response  —  DecibelsXn" ) ; 

printf (" - 

printf ("Obsrv.  Steered  Angle  (degrees) \n") ; 

printf ("Angle") ; 

for  (idir  =  0,0;  idir  <«  MAXDIR;  idir  =  idir  +  dirinc) 

{  printf ("  %3.1f",  idir);  } 

printf ("\n"); 

printf (" - 

return; 

} 

void  head_print (int  study) 

{ 

printf  {" - - 

printf ("  Antenna  Response  —  Decibels\n") ; 

printf  (" . . . . —  - 

printf ("CbSTv.") ;  line_print (study) ; 

printf ("Angle") ;  para_print (study) ;  printf ("\n") ; 

printf  (" - -  - — - 

return; 

> 


\n"); 

•\n"); 


\n") ; 


\n"); 

•\n"); 

An"); 


void  line_prlnt  (int  studty) 
.  { 

switch (study) 


{ 


} 

return; 


case  1  :  printf (" 

case  2  :  printf (" 

case  3  :  printf (" 

case  4  ;  printf (" 

case  5  :  printf (" 

case  6  :  printf (" 

case  7  :  printf (" 

case  8  :  printf (" 

case  9  :  printf (" 

case  10  :  printf (" 
case  11  :  printf (" 
case  12  :  printf (" 
default :  printf ( "Unknown 


Steered  Elevation  Angle  (degrees) \n") ;  bre 
Type  of  Antenna  Syst^Xn") ;  break; 
Number  of  Discrete  PhasesXn") ;  break; 
NvBiber  of  Shift  Register  StagesXn");  break 
Number  of  Antenna  Elements/DlioensionXn") ;  bre 
Time  (ns)  Between  Antenna  ElmentsXn");  brea 
c:arrier  Frequency  (Ghz)  \n") ;  brea 
Rulse  Width  (ns)\n");  breaOc; 
Number  of  Discrete  Levels  for  CarrierXn") ;  br 
Type  of  Code  for  Pulse  Con^iressionXn") ;  bre 
Steered  Azimuth  Angle  (degrees) \n") ;  brea 
toount  of  Raised  Cosine  Antenna  TaperXn");  br 
study  =  %d  in  line_print\n", study) ; 


void  para_print (int  study) 
{ 
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long  i; 
double  x; 

char  *ant [ ]  =  {  "TCW" , "DCW" , "TTD" , "PHA" , "DPA" , "DBS" , "DDD"  } ; 
for  (i  =  0;  i  <=  MXCASES;  i++) 

{ 

switch (study) 

{ 


case 

1 

printf (" 

%3.1f",i  *dirinc); 

break; 

/* 

DIR 

*/ 

case 

2 

printf (" 

%s",ant[i]); 

break; 

/* 

ANT 

*/ 

case 

3 

printf (" 

%d",  2  «  i); 

break; 

/* 

NPHS 

*/ 

case 

4 

printf (" 

%d", (long) ((i+l)*in)); 

break; 

/* 

SRSZ 

*/ 

case 

5 

printf (" 

%d",  (long) ((i+l)*nn)); 

break; 

/* 

NELS 

*/ 

case 

6 

printf (" 

%4.2f", (i+l)*nt); 

break; 

/* 

TELS 

*/ 

case 

7 

printf (" 

%4.2f", (i+l)*nf); 

break; 

/* 

FREQ 

*/ 

case 

8 

printf (" 

%4.2f", (i+l)*np) ; 

break; 

/* 

PLSWD 

*/ 

case 

9 

printf (" 

%d",2*i+l); 

break; 

/*  NLEVELS 

case 

10 

:  printf {" 

%d",code  tbl(i)); 

break; 

/*  CODE 

case 

11 

;  printf (" 

%3.1f",i*dirinc); 

break; 

/* 

A2MDIR 

*/ 

case 

12 

:  printf (" 

%3.1f", ( (double) i) /MXCASES) ;break; 

/*  TAPER 

default:  printf("  Unknown  type  of  study  specified  in  studies . \n" ) ; 

} 

} 

return; 

} 

void  para_write(int  study) 

{ 

long  i; 
double  x; 

char  *ant[]  =  {  "TCW", "DCW", "TTD",  "PHA", "DPA", "DBS", "DDD"  }; 

fprintf (fp, "Angle") ; 

for  (i  »  0;  i  <»=  MXCASES;  i++) 

{ 

switch  (study) 

{ 


case 

1 

fprintf (fp, " 

%3.1f",i  *dirinc); 

break; 

/*  DIR 

*/ 

case 

2 

fprintf (fp, " 

%s",ant[i]) ; 

break; 

/*  ANT 

*! 

case 

3 

fprintf (fp, " 

%d",  2  «  i)  ; 

break; 

/*  NPHS 

*/ 

case 

4 

fprintf (fp, " 

%d",  (long) ((i+l)*in)); 

break; 

/*  SRSZ 

*/ 

case 

5 

fprintf (fp, " 

%d",  (long)  ( (i+1)  *nn) )  ; 

break; 

/*  NELS 

*/ 

case 

6 

fprintf (fp, " 

%4.2f", (i+l)*nt); 

break; 

/*  TELS 

*/ 

case 

7 

fprintf (fp, " 

%4.2f", (i+l)*nf); 

break; 

/*  FREQ 

*/ 

case 

8 

fprintf (fp, " 

%4.2f", (i+l)*np); 

break; 

/*  PLSWD 

*/ 

case 

9 

fprintf (fp, " 

%d",2*i+l); 

break; 

/*  NLEVELS 

*/ 

case 

10 

:  fprintf (fp, " 

%d", code  tbl (!) ) ; 

break; 

/*  CODE 

*/ 

case 

11 

:  printf  (fp," 

%3.1f",i*dirlnc); 

break; 

/*  AZMDIR 

*/ 

case 

12 

:  fprintf (fp," 

%3.1f",  ( (double) i) /MXCASES) ;break;/*  TAPER 

* 

default  :  fprintf (fp,"  Unknown  type  of  stucfy  specified  in  studies. \n" ) ; 

} 

} 

fprintf(fp,"\n"); 

return; 

} 


void  note_print  (void) 

{ 

print f ("  Parameters  \n  - 

printf  ("ANTENNA  %s  \nNPHS 
printf("TELS  %3.1f  \nFREQ 


- \nSTUDY  %s  \nMXCASES 

%d  \nSRSZ  %d  \nNELS  %d\n", 
%3.1f  \nPLSWD  %3.1f  \n". 


%d\n",  STUDY,  MXCASES); 
ANTENNA,  NPHS,  SRSZ  ,NELS); 
TELS,  FBEQ,  PLSWD) ; 
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printfCNLEVELS  %d 
printf ("AZM3IR  %3.1£ 
printf ("ELVPLN  %3.1f 
printf ( "TAPER  %3 . If 
return; 


\nCODE  %d  \nDIR  %3.1f  \n", 

\nMAXDIR  %3.1f  \nA2MPm  %3.1f 
\nNUMDIM  %d  \nANGlNC  %3.1f  \n" 

\nDBLIM  %3.1f  \n",  TAPER,  DBLIM)  ; 


NLEVELS,CODE,  DIR) ; 
\n",AZMDIR,  MAXD1R,A2MPLN); 
ELVPLN,  N0MD1M,ANGINC) ; 


void  notejtfrite  (void) 

{ 


fprintf  (fp,  "\n— - - \n\n")  ; 

fprintf  (fp, "  Parameters  \n  - NnSTUDY  %s  \nMXCASES 

fprintf (fp, "ANTENNA  %s  \nNPHS  %d  \nSRSZ  %d  \nNELS  %d\n", 

fprintf (fp, "TELS  %3.1f  \nFREQ  %3.1f  \nPLSra)  %3.1f  \n", 

fprintf (^, "NLEVELS  %d  \na)DE  %d  \nDIR  %3.1f  \n", 

fprintf  (fp,  "AZMDIR  %3.1f  \rtMAXDIR  %3.1f  \nA2MPLN  %3.1f 
fprintf  (fp,  "ELVPLN  %3.1f  \nNCM)IM  %d  \nANGINC  %3.1f  "  \n", 
fprintf  (fp,  "TAPER  %3.1f  \nDBLDl  %3.1f  \n",  TAPER,  DBLIM); 

fprintf  (fp,  "\n - -\n")  ; 

return; 


%d\n",  STTOY,  M3(CASE 
ANTENNA, NPHS,  SRSZ  ,NE1 
TELS,  FREQ,  PLSK 
NLEVELS,CC»E,  DIR) 
\n", AZMDIR,  MAXDIR,AZMPI 
ELVPLN,  NDMDIM,AI«3Ii; 


} 


void  stu<ty_paxin_write  (char  *file_naine) 
char  buffer  [256] ; 

sprintf (buffer, "Beam  Legend  -  %s",file  name) ; 
fp  =  fopen (buffer, "w") ; 

printf (fp, "Beam  Legend  -  %s\n\n",file  name) ; 
notejwrite  ( ) ; 
fclose (fp) ; 

printf ("Beam  Legend:  %s\n",file  name) ; 
return; 


DISTRIBUTION  LIST 


Director  of  Space  and  SDI  Programs 
SAF/AQSC 

1060  Air  Force  Pentagon 
Washington,  DC  20330-1060 

CMDR  &  Program  Executive  Officer 
U  S  Army/CSSD-ZA 
Strategic  Defense  Command 
PO  Box  15280 
ArUngton,  VA  22215-0150 

Superintendent 
Code  1424 

Attn  Documents  Librarian 
Naval  Postgraduate  School 
Monterey,  C A 93943 

Director 

Technology  Directorate 
Office  of  Naval  Research 
Room  407 

800  N.  Quincy  Street 
Arlington,  VA  20305-1000 

DTIC  [2] 

8725  John  Jay  Kingman  Road 
Suite  0944 

Fort  Belvoir,VA  22060-6218 

Dr  Albert  Brandenstein 
Chief  Scientist 

Office  of  Nat'l  Drug  Control  Policy 
Executive  Office  of  the  President 
Washington,  DC  20500 

Dr  H  Lee  Buchanan,  III 

Director 

DARPA/DSO 

3701  North  Fairfax  Drive 

Arlington,  VA  22203-1714 


Dr  Collier 
Chief  Scientist 

U  S  Army  Strategic  Defense  Command 

PO  Box  15280 

Arlington,  VA  22215-0280 

D  A  R  P  A  Library 
3701  North  Fairfax  Drive 
Arlington,  VA  22209-2308 

Dr  Victor  Demarines,  Jr. 

President  and  Chief  Exec  Officer 
The  MITRE  Corporation 
A210 

202  Burlington  Road 
Bedford,MA01730-1420 

Mr  Dan  Flynn  [5] 

OSWR 

Washington,  DC  20505 

Dr  Paris  Genalis 
Deputy  Director 
OUSD(A&T)/S&TS/NW 
The  Pentagon,  Room  3D  1048 
Washington,  DC  20301 

Dr  Lawrence  K.  Gershwin 

NIC/NIO/S&T 

7E47,  OHB 

Washington,  DC  20505 

Dr  Robert  G  Henderson 
Director 

JASON  Program  Office 
The  MITRE  Corporation 
1820  Dolley  Madison  Blvd 
Mailstop  W553 
McLean,  VA  22102 


DISTRIBUTION  LIST 


Dr  William  E  Howard  III  [2] 
Director  of  Advanced  Concepts  & 
Systems  Design 
The  Pentagon  Room  3E480 
Washington,  DC  20301-0103 

JASONLibrary  [5] 

The  MITRE  Corporation 
Mail  Stop  W002 
1820  Dolley  Madison  Blvd 
McLean,  VA  22102 

Dr  Anita  Jones 
Department  of  Defense 
DOD,  DDR&E 

The  Pentagon,  Room  3E1014 
Washington,  DC  20301 

Mr.  O'  Dean  P.  Judd 

Los  Alamos  National  Laboratory 

Mailstop  F650 

Los  Alamos,  NM  87545 

Dr  Bobby  R  Junker 
Office  of  Naval  Research 
Code  111 

800  North  Quincy  Street 
Arlington,  VA  22217 

Dr  Ken  Kress 

Office  of  Research  and  Development 
809  Ames  Building 
Washington,  DC  20505 

Lt  Gen,  Howard  W.  Leaf,  (  Retired) 
Director,  Test  and  Evaluation 
HQ  USAF/TE 
1650  Air  Force  Pentagon 
Washington,  DC  20330-1650 


Mr.  Larry  Lynn 

Director 

DARPA/DIRO 

3701  North  Fairfax  Drive 

Arlington,  VA  22203-1714 

Dr.  John  Lyons 

Director  of  Corporate  Laboratory 
US  Army  Laboratory  Command 
2800  Powder  Mill  Road 
Adelphi,MD  20783-1145 

Col  Ed  Mahen 
DARPA/DIRO 
3701  North  Fairfax  Drive 
Arlington,  VA  22203-1714 

Dr.  Arthur  Manfredi 
OSWR 

Washington,  DC  20505 

Mr  James  J  Mattice 
Deputy  Asst  Secretary 
(Research  &  Engineering) 
SAF/AQ 

Pentagon,  Room  4D-977 
Washington,  DC  20330-1000 

Dr  George  Mayer 
Office  of  Director  of  Defense 
Resera  ch  and  Engineering 
Pentagon,  Room  3D375 
Washington,  DC  20301-3030 

Dr  Bill  Murphy 
ORD 

Washington,  DC  20505 


DISTRIBUTION  LIST 


Dr  Julian  C  Nall 
Institute  for  Defense  Analyses 
1801  North  Beauregard  Street 
Alexandria,  VA  22311 

Dr  Ari  Patrinos 
Director 

Environmental  Sciences  Division 
ER74/GTN 

US  Department  of  Energy 
Washington,  DC  20585 

Dr  Bruce  Pierce 
USD(A)D  S 

The  Pentagon,  Room  3D136 
Washington,  DC  20301-3090 

Mr  John  Rausch  [2] 

Division  Head  06  Department 
NAVOPINTCEN 
4301  Suitland  Road 
Washington,  DC  20390 

Records  Resource 
The  MITRE  Corporation 
Mailstop  W115 
1820  Dolley  Madison  Blvd 
McLean, VA  22102 

Dr  Victor  H  Reis 
US  Department  of  Energy 
DP-1,  Room  4A019 
1000  Independence  Ave,  SW 
Washington,  DC  20585 

Dr  Fred  E  Saalfeld 
Director 

Office  of  Naval  Research 
800  North  Quincy  Street 
Arlington,  VA  22217-5000 


Dr  Dan  Schuresko 
O/DDS&T 

Washington,  DC  20505 

Dr  John  Schuster 
Technical  Director  of  Submarine 
and  SSBN  Security  Program 
Department  of  the  Navy  OP-02T 
The  Pentagon  Room  4D534 
Washington,  DC  20350-2000 

Dr  Michael  A  Stroscio 
US  Army  Research  Office 
P.  O.  Box  12211 

Research  Triangle  NC27709-2211 

Ambassador  James  Sweeney 
Chief  Science  Advisor 
USACDA 
320  21st  Street  NW 
Washington,  DC  20451 

Dr  George  W  Ullrich  [3] 

Deputy  Director 
Defense  Nuclear  Agency 
6801  Telegraph  Road 
Alexandria,  VA  22310 

Dr.  David  Whelan 

Director 

DARPA/TTO 

3701  North  Fairfax  Drive 

Arlington,  VA  22203-1714 

Dr  Edward  C  Whitman 
Dep  Assistant  Secretary  of  the  Navy 
C3I  Electronic  Warfare  &  Space 
Department  of  the  Navy 
The  Pentagon  4D745 
Washington,  DC  20350-5000 


